home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Publish / A / Alpha.5.76.sit / Alpha.5.76 folder / Tcl / SystemCode / menus.tcl < prev    next >
MacBinary  |  1994-03-15  |  7.1 KB  |  [TEXT/ALFA]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Tue Mar 15 12:47:29 1994, modified Tue Mar 15 12:47:29 1994, creator Alpha editor, type ASCII, 6719 bytes "menus.tcl" , at 0x1abf 382 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[ALFA]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 6d 65 6e 75 73 2e | 74 63 6c 00 00 00 00 00 |..menus.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 1a 3f 00 | 00 01 7e a9 ab a5 31 a9 |......?.|..~...1.|
|00000060| ab a5 31 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..1.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8b 5d 00 00 |........|.....]..|
|00000080| 23 20 41 20 66 65 77 20 | 75 73 65 66 75 6c 20 72 |# A few |useful r|
|00000090| 6f 75 74 69 6e 65 73 2e | 0d 0d 70 72 6f 63 20 6d |outines.|..proc m|
|000000a0| 61 6b 65 4d 65 6e 75 50 | 65 72 6d 61 6e 65 6e 74 |akeMenuP|ermanent|
|000000b0| 20 7b 6d 65 6e 75 7d 20 | 7b 0d 09 67 6c 6f 62 61 | {menu} |{..globa|
|000000c0| 6c 20 70 65 72 6d 61 6e | 65 6e 74 4d 65 6e 75 73 |l perman|entMenus|
|000000d0| 0d 09 0d 09 73 65 74 20 | 70 65 72 6d 61 6e 65 6e |....set |permanen|
|000000e0| 74 4d 65 6e 75 73 28 24 | 6d 65 6e 75 29 20 31 0d |tMenus($|menu) 1.|
|000000f0| 7d 0d 0d 69 66 20 7b 5b | 63 61 74 63 68 20 7b 73 |}..if {[|catch {s|
|00000100| 65 74 20 72 65 6e 61 6d | 65 64 52 65 6d 6f 76 65 |et renam|edRemove|
|00000110| 7d 5d 7d 20 7b 0d 09 72 | 65 6e 61 6d 65 20 72 65 |}]} {..r|ename re|
|00000120| 6d 6f 76 65 4d 65 6e 75 | 20 6f 6c 64 52 65 6d 6f |moveMenu| oldRemo|
|00000130| 76 65 4d 65 6e 75 0d 09 | 73 65 74 20 72 65 6e 61 |veMenu..|set rena|
|00000140| 6d 65 64 52 65 6d 6f 76 | 65 20 31 0d 7d 0d 0d 70 |medRemov|e 1.}..p|
|00000150| 72 6f 63 20 72 65 6d 6f | 76 65 4d 65 6e 75 20 7b |roc remo|veMenu {|
|00000160| 6e 61 6d 65 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 09 |name} {.|.global.|
|00000170| 70 65 72 6d 61 6e 65 6e | 74 4d 65 6e 75 73 0d 09 |permanen|tMenus..|
|00000180| 0d 09 69 66 20 7b 21 5b | 63 61 74 63 68 20 7b 73 |..if {![|catch {s|
|00000190| 65 74 20 70 65 72 6d 61 | 6e 65 6e 74 4d 65 6e 75 |et perma|nentMenu|
|000001a0| 73 28 24 6e 61 6d 65 29 | 7d 5d 7d 20 72 65 74 75 |s($name)|}]} retu|
|000001b0| 72 6e 0d 09 6f 6c 64 52 | 65 6d 6f 76 65 4d 65 6e |rn..oldR|emoveMen|
|000001c0| 75 20 24 6e 61 6d 65 0d | 7d 0d 0d 0d 23 20 4d 79 |u $name.|}...# My|
|000001d0| 20 6d 65 6e 75 73 2e 09 | 09 0d 0d 6d 65 6e 75 20 | menus..|...menu |
|000001e0| 2d 6e 20 46 69 6c 65 20 | 2d 70 20 66 69 6c 65 4d |-n File |-p fileM|
|000001f0| 65 6e 75 50 72 6f 63 20 | 7b 0d 09 22 2f 4e 6e 65 |enuProc |{.."/Nne|
|00000200| 77 22 0d 09 22 2f 4f 6f | 70 65 6e c9 22 0d 09 22 |w".."/Oo|pen.".."|
|00000210| 2f 57 63 6c 6f 73 65 22 | 0d 09 7b 6d 65 6e 75 20 |/Wclose"|..{menu |
|00000220| 2d 6e 20 66 69 6c 65 53 | 65 74 73 20 7b 0d 09 09 |-n fileS|ets {...|
|00000230| 7b 6d 65 6e 75 20 2d 6e | 20 63 68 6f 6f 73 65 20 |{menu -n| choose |
|00000240| 2d 70 20 63 68 61 6e 67 | 65 46 69 6c 65 53 65 74 |-p chang|eFileSet|
|00000250| 20 7b 7d 7d 0d 09 09 7b | 6d 65 6e 75 20 2d 6e 20 | {}}...{|menu -n |
|00000260| 66 69 6c 65 73 20 7b 7d | 7d 0d 09 09 22 63 72 65 |files {}|}..."cre|
|00000270| 61 74 65 46 69 6c 65 73 | 65 74 c9 22 0d 09 09 22 |ateFiles|et."..."|
|00000280| 64 75 6d 70 46 69 6c 65 | 73 65 74 c9 22 0d 09 09 |dumpFile|set."...|
|00000290| 22 28 2d 22 0d 09 09 22 | 66 69 6e 64 54 61 67 22 |"(-"..."|findTag"|
|000002a0| 0d 09 09 22 63 72 65 61 | 74 65 54 61 67 46 69 6c |..."crea|teTagFil|
|000002b0| 65 22 7d 7d 0d 09 22 28 | 2d 22 0d 09 22 2f 53 73 |e"}}.."(|-".."/Ss|
|000002c0| 61 76 65 22 0d 09 22 73 | 61 76 65 41 73 c9 22 0d |ave".."s|aveAs.".|
|000002d0| 09 22 72 65 76 65 72 74 | 22 0d 09 22 28 2d 22 0d |."revert|".."(-".|
|000002e0| 09 22 2f 59 73 68 65 6c | 6c 22 0d 09 22 28 2d 22 |."/Yshel|l".."(-"|
|000002f0| 0d 09 22 70 61 67 65 53 | 65 74 75 70 c9 22 0d 09 |.."pageS|etup."..|
|00000300| 22 2f 50 70 72 69 6e 74 | c9 22 0d 09 22 28 2d 22 |"/Pprint|.".."(-"|
|00000310| 0d 09 22 2f 51 71 75 69 | 74 22 0d 7d 0d 0d 70 72 |.."/Qqui|t".}..pr|
|00000320| 6f 63 20 66 69 6c 65 4d | 65 6e 75 50 72 6f 63 20 |oc fileM|enuProc |
|00000330| 7b 6d 65 6e 75 20 69 74 | 65 6d 7d 20 7b 0d 09 69 |{menu it|em} {..i|
|00000340| 66 20 7b 24 69 74 65 6d | 20 3d 3d 20 22 6f 70 65 |f {$item| == "ope|
|00000350| 6e 22 7d 20 7b 0d 09 09 | 66 69 6e 64 46 69 6c 65 |n"} {...|findFile|
|00000360| 0d 09 7d 20 65 6c 73 65 | 69 66 20 7b 24 69 74 65 |..} else|if {$ite|
|00000370| 6d 20 3d 3d 20 22 63 6c | 6f 73 65 22 7d 20 7b 0d |m == "cl|ose"} {.|
|00000380| 09 09 6b 69 6c 6c 57 69 | 6e 64 6f 77 0d 09 7d 20 |..killWi|ndow..} |
|00000390| 65 6c 73 65 20 7b 0d 09 | 09 24 69 74 65 6d 0d 09 |else {..|.$item..|
|000003a0| 7d 0d 7d 0d 0d 0d 6d 65 | 6e 75 20 2d 6e 20 45 64 |}.}...me|nu -n Ed|
|000003b0| 69 74 20 7b 0d 09 22 2f | 5a 75 6e 64 6f 22 0d 09 |it {.."/|Zundo"..|
|000003c0| 22 2f 44 72 65 64 6f 22 | 0d 09 22 2f 4c 6c 6f 61 |"/Dredo"|.."/Lloa|
|000003d0| 64 22 0d 09 22 28 2d 22 | 0d 09 22 2f 58 63 75 74 |d".."(-"|.."/Xcut|
|000003e0| 22 0d 09 22 2f 43 63 6f | 70 79 22 0d 09 22 2f 56 |".."/Cco|py".."/V|
|000003f0| 70 61 73 74 65 22 0d 09 | 22 28 2d 22 0d 09 22 2f |paste"..|"(-".."/|
|00000400| 2e 70 61 73 74 65 50 6f | 70 22 0d 09 22 79 61 6e |.pastePo|p".."yan|
|00000410| 6b 22 0d 09 22 2f 41 73 | 65 6c 65 63 74 41 6c 6c |k".."/As|electAll|
|00000420| 22 0d 09 22 63 6c 65 61 | 72 22 0d 09 22 28 2d 22 |".."clea|r".."(-"|
|00000430| 0d 09 7b 2f 5b 73 68 69 | 66 74 4c 65 66 74 7d 0d |..{/[shi|ftLeft}.|
|00000440| 09 7b 2f 5d 73 68 69 66 | 74 52 69 67 68 74 7d 0d |.{/]shif|tRight}.|
|00000450| 09 22 2f 42 62 61 6c 61 | 6e 63 65 22 0d 7d 0d 0d |."/Bbala|nce".}..|
|00000460| 0d 6d 65 6e 75 20 2d 6e | 20 53 65 61 72 63 68 20 |.menu -n| Search |
|00000470| 7b 0d 09 22 2f 46 66 69 | 6e 64 c9 22 0d 09 22 2f |{.."/Ffi|nd.".."/|
|00000480| 47 72 65 70 65 61 74 53 | 65 61 72 63 68 46 6f 72 |GrepeatS|earchFor|
|00000490| 77 61 72 64 22 0d 09 22 | 2f 49 72 65 70 65 61 74 |ward".."|/Irepeat|
|000004a0| 53 65 61 72 63 68 42 61 | 63 6b 77 61 72 64 22 0d |SearchBa|ckward".|
|000004b0| 09 22 2f 54 66 69 6e 64 | 49 6e 4e 65 78 74 46 69 |."/Tfind|InNextFi|
|000004c0| 6c 65 22 0d 09 22 28 2d | 22 0d 09 22 2f 45 65 6e |le".."(-|".."/Een|
|000004d0| 74 65 72 53 65 6c 65 63 | 74 69 6f 6e 22 0d 09 22 |terSelec|tion".."|
|000004e0| 28 2d 22 0d 09 22 2f 55 | 72 65 70 6c 61 63 65 22 |(-".."/U|replace"|
|000004f0| 0d 09 22 2f 48 72 65 70 | 6c 61 63 65 26 46 69 6e |.."/Hrep|lace&Fin|
|00000500| 64 41 67 61 69 6e 22 0d | 09 22 72 65 70 6c 61 63 |dAgain".|."replac|
|00000510| 65 41 6c 6c 22 0d 09 22 | 28 2d 22 0d 09 22 2f 20 |eAll".."|(-".."/ |
|00000520| 67 6f 74 6f 4c 69 6e 65 | 22 0d 09 7b 6d 65 6e 75 |gotoLine|"..{menu|
|00000530| 20 2d 6e 20 6e 61 6d 65 | 64 4d 61 72 6b 73 20 2d | -n name|dMarks -|
|00000540| 70 20 6e 61 6d 65 64 4d | 61 72 6b 50 72 6f 63 20 |p namedM|arkProc |
|00000550| 7b 0d 09 09 22 73 65 74 | c9 22 0d 09 09 22 67 6f |{..."set|."..."go|
|00000560| 74 6f c9 22 0d 09 09 22 | 72 65 6d 6f 76 65 c9 22 |to."..."|remove."|
|00000570| 7d 7d 0d 09 7b 6d 65 6e | 75 20 2d 6e 20 75 6e 6e |}}..{men|u -n unn|
|00000580| 61 6d 65 64 4d 61 72 6b | 73 20 2d 70 20 75 6e 6e |amedMark|s -p unn|
|00000590| 61 6d 65 64 4d 61 72 6b | 70 72 6f 63 20 7b 0d 09 |amedMark|proc {..|
|000005a0| 09 22 73 65 74 c9 22 0d | 09 09 22 65 78 63 68 61 |."set.".|.."excha|
|000005b0| 6e 67 65 50 6f 69 6e 74 | 41 6e 64 4d 61 72 6b 22 |ngePoint|AndMark"|
|000005c0| 0d 09 09 22 2f 3d 68 69 | 6c 69 74 65 22 7d 7d 0d |..."/=hi|lite"}}.|
|000005d0| 09 7b 6d 65 6e 75 20 2d | 6e 20 6d 61 72 6b 53 74 |.{menu -|n markSt|
|000005e0| 61 63 6b 20 2d 70 20 6d | 61 72 6b 4d 65 6e 75 50 |ack -p m|arkMenuP|
|000005f0| 72 6f 63 20 7b 20 22 70 | 75 73 68 22 20 22 70 6f |roc { "p|ush" "po|
|00000600| 70 22 7d 7d 0d 7d 0d 0d | 70 72 6f 63 20 6e 61 6d |p"}}.}..|proc nam|
|00000610| 65 64 4d 61 72 6b 50 72 | 6f 63 20 7b 6d 65 6e 75 |edMarkPr|oc {menu|
|00000620| 20 69 74 65 6d 7d 20 7b | 0d 09 73 77 69 74 63 68 | item} {|..switch|
|00000630| 20 24 69 74 65 6d 20 7b | 0d 09 09 22 73 65 74 22 | $item {|..."set"|
|00000640| 20 09 09 7b 73 65 74 4e | 61 6d 65 64 4d 61 72 6b | ..{setN|amedMark|
|00000650| 7d 0d 09 09 22 67 6f 74 | 6f 22 09 09 7b 67 6f 74 |}..."got|o"..{got|
|00000660| 6f 4e 61 6d 65 64 4d 61 | 72 6b 7d 0d 09 09 22 72 |oNamedMa|rk}..."r|
|00000670| 65 6d 6f 76 65 22 09 7b | 72 65 6d 6f 76 65 4e 61 |emove".{|removeNa|
|00000680| 6d 65 64 4d 61 72 6b 7d | 0d 09 7d 0d 7d 0d 0d 70 |medMark}|..}.}..p|
|00000690| 72 6f 63 20 75 6e 6e 61 | 6d 65 64 4d 61 72 6b 70 |roc unna|medMarkp|
|000006a0| 72 6f 63 20 7b 6d 65 6e | 75 20 69 74 65 6d 7d 20 |roc {men|u item} |
|000006b0| 7b 0d 09 73 77 69 74 63 | 68 20 24 69 74 65 6d 20 |{..switc|h $item |
|000006c0| 7b 0d 09 09 22 73 65 74 | 22 20 09 09 09 09 09 7b |{..."set|" .....{|
|000006d0| 73 65 74 4d 61 72 6b 7d | 0d 09 09 22 65 78 63 68 |setMark}|..."exch|
|000006e0| 61 6e 67 65 50 6f 69 6e | 74 41 6e 64 4d 61 72 6b |angePoin|tAndMark|
|000006f0| 22 09 7b 65 78 63 68 61 | 6e 67 65 50 6f 69 6e 74 |".{excha|ngePoint|
|00000700| 41 6e 64 4d 61 72 6b 7d | 0d 09 09 22 68 69 6c 69 |AndMark}|..."hili|
|00000710| 74 65 22 09 09 09 09 7b | 6d 61 72 6b 48 69 6c 69 |te"....{|markHili|
|00000720| 74 65 7d 0d 09 7d 0d 7d | 0d 09 0d 70 72 6f 63 20 |te}..}.}|...proc |
|00000730| 6d 61 72 6b 4d 65 6e 75 | 50 72 6f 63 20 7b 6d 65 |markMenu|Proc {me|
|00000740| 6e 75 20 69 74 65 6d 7d | 20 7b 0d 09 73 77 69 74 |nu item}| {..swit|
|00000750| 63 68 20 24 69 74 65 6d | 20 7b 0d 09 09 22 70 75 |ch $item| {..."pu|
|00000760| 73 68 22 20 09 7b 70 75 | 73 68 4d 61 72 6b 7d 0d |sh" .{pu|shMark}.|
|00000770| 09 09 22 70 6f 70 22 09 | 7b 70 6f 70 4d 61 72 6b |.."pop".|{popMark|
|00000780| 7d 0d 09 7d 0d 7d 0d 09 | 09 0d 09 0d 6d 65 6e 75 |}..}.}..|....menu|
|00000790| 09 2d 6e 20 55 74 69 6c | 69 74 69 65 73 20 7b 0d |.-n Util|ities {.|
|000007a0| 09 09 22 6c 6f 6e 67 4d | 65 6e 75 73 22 0d 09 09 |.."longM|enus"...|
|000007b0| 7b 6d 65 6e 75 20 2d 6e | 20 66 69 6c 65 55 74 69 |{menu -n| fileUti|
|000007c0| 6c 73 20 7b 0d 09 09 09 | 22 69 6e 73 65 72 74 46 |ls {....|"insertF|
|000007d0| 69 6c 65 c9 22 0d 09 09 | 09 22 28 2d 22 0d 09 09 |ile."...|."(-"...|
|000007e0| 09 22 66 69 6c 65 52 65 | 6d 6f 76 65 c9 22 0d 09 |."fileRe|move."..|
|000007f0| 09 09 22 66 69 6c 65 49 | 6e 66 6f 2f 3d c9 22 7d |.."fileI|nfo/=."}|
|00000800| 7d 0d 09 09 7b 6d 65 6e | 75 20 2d 6e 20 43 6c 69 |}...{men|u -n Cli|
|00000810| 70 73 20 7b 0d 09 09 09 | 22 63 6f 70 79 4e 61 6d |ps {....|"copyNam|
|00000820| 65 64 43 6c 69 70 62 6f | 61 72 64 c9 22 0d 09 09 |edClipbo|ard."...|
|00000830| 09 22 63 75 74 4e 61 6d | 65 64 43 6c 69 70 62 6f |."cutNam|edClipbo|
|00000840| 61 72 64 c9 22 0d 09 09 | 09 22 70 61 73 74 65 4e |ard."...|."pasteN|
|00000850| 61 6d 65 64 43 6c 69 70 | 62 6f 61 72 64 c9 22 7d |amedClip|board."}|
|00000860| 7d 0d 09 09 22 28 2d 22 | 0d 09 09 7b 6d 65 6e 75 |}..."(-"|...{menu|
|00000870| 20 2d 6e 20 61 72 72 61 | 6e 67 65 20 7b 0d 09 09 | -n arra|nge {...|
|00000880| 09 22 76 65 72 74 69 63 | 61 6c 6c 79 5e 31 22 0d |."vertic|ally^1".|
|00000890| 09 09 09 22 68 6f 72 69 | 7a 6f 6e 74 61 6c 6c 79 |..."hori|zontally|
|000008a0| 5e 32 22 0d 09 09 09 22 | 74 69 6c 65 64 5e 33 22 |^2"...."|tiled^3"|
|000008b0| 0d 09 09 09 22 6f 76 65 | 72 6c 61 79 5e 34 22 7d |...."ove|rlay^4"}|
|000008c0| 7d 0d 09 09 22 7a 6f 6f | 6d 2f 2f 22 7d 0d 0d 0d |}..."zoo|m//"}...|
|000008d0| 6d 65 6e 75 09 2d 6e 20 | 22 55 74 69 6c 73 22 20 |menu.-n |"Utils" |
|000008e0| 7b 0d 09 09 22 73 68 6f | 72 74 4d 65 6e 75 73 22 |{..."sho|rtMenus"|
|000008f0| 0d 09 09 7b 6d 65 6e 75 | 20 2d 6e 20 46 6c 61 67 |...{menu| -n Flag|
|00000900| 73 20 2d 70 20 65 64 69 | 74 46 6c 61 67 20 7b 7d |s -p edi|tFlag {}|
|00000910| 7d 0d 09 09 7b 6d 65 6e | 75 20 2d 6e 20 56 61 72 |}...{men|u -n Var|
|00000920| 73 20 2d 70 20 65 64 69 | 74 56 61 72 20 7b 7d 7d |s -p edi|tVar {}}|
|00000930| 0d 09 09 7b 6d 65 6e 75 | 20 2d 6e 20 66 69 6c 65 |...{menu| -n file|
|00000940| 55 74 69 6c 73 20 7b 0d | 09 09 09 22 69 6e 73 65 |Utils {.|..."inse|
|00000950| 72 74 50 61 74 68 4e 61 | 6d 65 c9 22 0d 09 09 09 |rtPathNa|me."....|
|00000960| 22 69 6e 73 65 72 74 46 | 69 6c 65 c9 22 0d 09 09 |"insertF|ile."...|
|00000970| 09 22 66 69 6c 65 52 65 | 6d 6f 76 65 c9 22 0d 09 |."fileRe|move."..|
|00000980| 09 09 22 66 69 6c 65 49 | 6e 66 6f c9 22 0d 09 09 |.."fileI|nfo."...|
|00000990| 09 22 77 6f 72 64 43 6f | 75 6e 74 22 7d 7d 0d 09 |."wordCo|unt"}}..|
|000009a0| 09 22 28 2d 22 0d 09 09 | 7b 6d 65 6e 75 20 2d 6e |."(-"...|{menu -n|
|000009b0| 20 45 76 61 6c 20 7b 0d | 09 09 09 22 65 76 61 6c | Eval {.|..."eval|
|000009c0| 43 6f 6d 6d 61 6e 64 2f | 5c 5c 22 0d 09 09 09 22 |Command/|\\"...."|
|000009d0| 65 76 61 6c 54 6f 54 65 | 78 74 2f 27 22 0d 09 09 |evalToTe|xt/'"...|
|000009e0| 09 22 65 78 65 63 43 6f | 6d 6d 61 6e 64 22 0d 09 |."execCo|mmand"..|
|000009f0| 09 09 22 72 65 70 65 61 | 74 45 76 61 6c 22 0d 09 |.."repea|tEval"..|
|00000a00| 09 09 22 69 74 65 72 61 | 74 69 6f 6e 43 6f 75 6e |.."itera|tionCoun|
|00000a10| 74 22 7d 7d 0d 09 09 7b | 6d 65 6e 75 20 2d 6e 20 |t"}}...{|menu -n |
|00000a20| 4b 62 64 4d 61 63 72 6f | 73 20 7b 0d 09 09 09 22 |KbdMacro|s {...."|
|00000a30| 73 74 61 72 74 4b 65 79 | 62 6f 61 72 64 4d 61 63 |startKey|boardMac|
|00000a40| 72 6f 22 0d 09 09 09 22 | 65 6e 64 4b 65 79 62 6f |ro"...."|endKeybo|
|00000a50| 61 72 64 4d 61 63 72 6f | 22 0d 09 09 09 22 65 78 |ardMacro|"...."ex|
|00000a60| 65 63 75 74 65 4b 65 79 | 62 6f 61 72 64 4d 61 63 |ecuteKey|boardMac|
|00000a70| 72 6f 22 0d 09 09 09 22 | 64 75 6d 70 4d 61 63 72 |ro"...."|dumpMacr|
|00000a80| 6f 22 7d 7d 0d 09 09 22 | 28 2d 22 0d 09 09 22 73 |o"}}..."|(-"..."s|
|00000a90| 70 65 6c 6c 63 68 65 63 | 6b 57 69 6e 64 6f 77 22 |pellchec|kWindow"|
|00000aa0| 0d 09 09 22 73 65 6c 65 | 63 74 50 61 72 61 67 72 |..."sele|ctParagr|
|00000ab0| 61 70 68 22 0d 09 09 7b | 6d 65 6e 75 20 2d 6e 20 |aph"...{|menu -n |
|00000ac0| 4e 61 6d 65 64 43 6c 69 | 70 62 6f 61 72 64 73 20 |NamedCli|pboards |
|00000ad0| 2d 70 20 6e 61 6d 65 64 | 43 6c 69 70 4d 65 6e 75 |-p named|ClipMenu|
|00000ae0| 50 72 6f 63 20 7b 22 63 | 6f 70 79 22 20 22 63 75 |Proc {"c|opy" "cu|
|00000af0| 74 22 20 22 70 61 73 74 | 65 22 7d 7d 0d 7d 0d 0d |t" "past|e"}}.}..|
|00000b00| 70 72 6f 63 20 6e 61 6d | 65 64 43 6c 69 70 4d 65 |proc nam|edClipMe|
|00000b10| 6e 75 50 72 6f 63 20 7b | 6d 65 6e 75 20 69 74 65 |nuProc {|menu ite|
|00000b20| 6d 7d 20 7b 0d 09 73 77 | 69 74 63 68 20 24 69 74 |m} {..sw|itch $it|
|00000b30| 65 6d 20 7b 0d 09 09 22 | 63 6f 70 79 22 20 09 09 |em {..."|copy" ..|
|00000b40| 22 63 6f 70 79 4e 61 6d | 65 64 43 6c 69 70 62 6f |"copyNam|edClipbo|
|00000b50| 61 72 64 22 0d 09 09 22 | 63 75 74 22 20 09 09 22 |ard"..."|cut" .."|
|00000b60| 63 75 74 4e 61 6d 65 64 | 43 6c 69 70 62 6f 61 72 |cutNamed|Clipboar|
|00000b70| 64 22 0d 09 09 22 70 61 | 73 74 65 22 20 09 22 70 |d"..."pa|ste" ."p|
|00000b80| 61 73 74 65 4e 61 6d 65 | 64 43 6c 69 70 62 6f 61 |asteName|dClipboa|
|00000b90| 72 64 22 0d 09 7d 0d 7d | 0d 0d 09 09 0d 6d 65 6e |rd"..}.}|.....men|
|00000ba0| 75 09 2d 6e 20 4d 6f 64 | 65 20 7b 0d 09 09 22 6c |u.-n Mod|e {..."l|
|00000bb0| 69 73 74 42 69 6e 64 69 | 6e 67 73 22 0d 09 09 22 |istBindi|ngs"..."|
|00000bc0| 64 65 73 63 72 69 62 65 | 42 69 6e 64 69 6e 67 22 |describe|Binding"|
|00000bd0| 0d 09 09 7b 6d 65 6e 75 | 20 2d 6e 20 61 73 63 69 |...{menu| -n asci|
|00000be0| 69 45 74 63 20 7b 0d 09 | 09 09 22 6b 65 79 43 6f |iEtc {..|.."keyCo|
|00000bf0| 64 65 22 0d 09 09 09 22 | 6b 65 79 41 73 63 69 69 |de"...."|keyAscii|
|00000c00| 22 0d 09 09 09 22 67 65 | 74 41 73 63 69 69 22 0d |"...."ge|tAscii".|
|00000c10| 09 09 09 22 69 6e 73 65 | 72 74 41 73 63 69 69 22 |..."inse|rtAscii"|
|00000c20| 7d 7d 0d 09 09 22 28 2d | 22 0d 09 09 22 73 65 74 |}}..."(-|"..."set|
|00000c30| 46 6f 6e 74 73 54 61 62 | 73 c9 22 0d 09 09 7b 6d |FontsTab|s."...{m|
|00000c40| 65 6e 75 20 09 2d 6e 20 | 43 6f 6c 6f 72 73 20 7b |enu .-n |Colors {|
|00000c50| 0d 09 09 09 22 66 6f 72 | 65 43 6f 6c 6f 72 22 0d |...."for|eColor".|
|00000c60| 09 09 09 22 62 61 63 6b | 43 6f 6c 6f 72 22 0d 09 |..."back|Color"..|
|00000c70| 09 09 22 64 75 6d 70 43 | 6f 6c 6f 72 73 22 7d 7d |.."dumpC|olors"}}|
|00000c80| 0d 09 09 22 28 2d 22 0d | 09 09 7b 6d 65 6e 75 20 |..."(-".|..{menu |
|00000c90| 2d 6d 20 2d 6e 20 73 77 | 69 74 63 68 54 6f 20 2d |-m -n sw|itchTo -|
|00000ca0| 70 20 73 77 69 74 63 68 | 50 72 6f 63 20 7b 0d 09 |p switch|Proc {..|
|00000cb0| 09 09 22 2f 60 4d 61 63 | 4d 69 4e 54 22 0d 09 09 |.."/`Mac|MiNT"...|
|00000cc0| 09 22 54 48 49 4e 4b 20 | 50 72 6f 6a 65 63 74 20 |."THINK |Project |
|00000cd0| 4d 61 6e 61 67 65 72 22 | 0d 09 09 09 22 4d 50 57 |Manager"|...."MPW|
|00000ce0| 20 53 68 65 6c 6c 22 0d | 09 09 09 22 56 65 72 73 | Shell".|..."Vers|
|00000cf0| 61 74 65 72 6d 20 50 52 | 4f 22 0d 09 09 09 22 4d |aterm PR|O"...."M|
|00000d00| 61 63 4c 61 79 65 72 73 | 22 7d 7d 0d 09 09 22 74 |acLayers|"}}..."t|
|00000d10| 6f 6f 6c 73 65 72 76 65 | 72 53 68 65 6c 6c 22 0d |oolserve|rShell".|
|00000d20| 09 09 22 28 2d 22 0d 09 | 09 22 6c 6f 61 64 45 6c |.."(-"..|."loadEl|
|00000d30| 65 63 74 72 69 63 41 6c | 69 61 73 22 0d 7d 0d 0d |ectricAl|ias".}..|
|00000d40| 23 20 3d 3d 3d 3d 20 4e | 4f 54 45 3a 20 20 72 65 |# ==== N|OTE: re|
|00000d50| 63 74 4d 61 72 6b 48 69 | 6c 69 74 65 2c 20 6f 6e |ctMarkHi|lite, on|
|00000d60| 65 73 70 61 63 65 2c 20 | 63 65 6e 74 65 72 52 65 |espace, |centerRe|
|00000d70| 64 72 61 77 2c 20 64 6f | 54 61 62 0d 6d 65 6e 75 |draw, do|Tab.menu|
|00000d80| 09 2d 6e 20 43 6f 6e 76 | 65 72 74 20 7b 0d 09 09 |.-n Conv|ert {...|
|00000d90| 22 66 69 6c 6c 52 65 67 | 69 6f 6e 22 0d 09 09 22 |"fillReg|ion"..."|
|00000da0| 66 69 6c 6c 50 61 72 61 | 67 72 61 70 68 22 0d 09 |fillPara|graph"..|
|00000db0| 09 22 77 72 61 70 52 65 | 67 69 6f 6e 22 0d 09 09 |."wrapRe|gion"...|
|00000dc0| 22 77 72 61 70 50 61 72 | 61 67 72 61 70 68 22 0d |"wrapPar|agraph".|
|00000dd0| 09 09 22 6a 6f 69 6e 52 | 65 67 69 6f 6e 22 0d 09 |.."joinR|egion"..|
|00000de0| 09 22 73 6f 72 74 4c 69 | 6e 65 73 22 0d 09 09 22 |."sortLi|nes"..."|
|00000df0| 6d 61 74 63 68 69 6e 67 | 4c 69 6e 65 73 22 0d 09 |matching|Lines"..|
|00000e00| 09 22 28 2d 22 0d 09 09 | 22 7a 61 70 49 6e 76 69 |."(-"...|"zapInvi|
|00000e10| 73 69 62 6c 65 73 22 0d | 09 09 22 74 61 62 73 54 |sibles".|.."tabsT|
|00000e20| 6f 53 70 61 63 65 73 22 | 0d 09 09 22 73 70 61 63 |oSpaces"|..."spac|
|00000e30| 65 73 54 6f 54 61 62 73 | 22 0d 09 09 22 28 2d 22 |esToTabs|"..."(-"|
|00000e40| 0d 09 09 7b 6d 65 6e 75 | 09 2d 6e 20 53 74 72 69 |...{menu|.-n Stri|
|00000e50| 6e 67 73 20 7b 0d 09 09 | 09 22 69 6e 73 65 72 74 |ngs {...|."insert|
|00000e60| 50 72 65 66 69 78 22 0d | 09 09 09 22 69 6e 73 65 |Prefix".|..."inse|
|00000e70| 72 74 53 75 66 66 69 78 | 22 0d 09 09 09 22 72 65 |rtSuffix|"...."re|
|00000e80| 6d 6f 76 65 50 72 65 66 | 69 78 22 0d 09 09 09 22 |movePref|ix"...."|
|00000e90| 72 65 6d 6f 76 65 53 75 | 66 66 69 78 22 0d 09 09 |removeSu|ffix"...|
|00000ea0| 09 22 73 65 74 50 72 65 | 66 69 78 22 0d 09 09 09 |."setPre|fix"....|
|00000eb0| 22 73 65 74 53 75 66 66 | 69 78 22 7d 7d 0d 09 09 |"setSuff|ix"}}...|
|00000ec0| 7b 6d 65 6e 75 09 2d 6e | 20 43 6f 6d 6d 65 6e 74 |{menu.-n| Comment|
|00000ed0| 20 7b 0d 09 09 09 22 74 | 72 61 6e 73 70 6f 73 65 | {...."t|ranspose|
|00000ee0| 43 68 61 72 73 22 0d 09 | 09 09 22 74 72 61 6e 73 |Chars"..|.."trans|
|00000ef0| 70 6f 73 65 57 6f 72 64 | 73 22 0d 09 09 09 22 63 |poseWord|s"...."c|
|00000f00| 6f 6d 6d 65 6e 74 42 6f | 78 22 0d 09 09 09 22 75 |ommentBo|x"...."u|
|00000f10| 6e 63 6f 6d 6d 65 6e 74 | 42 6f 78 22 7d 7d 0d 09 |ncomment|Box"}}..|
|00000f20| 09 22 28 2d 22 0d 09 09 | 7b 6d 65 6e 75 09 2d 6e |."(-"...|{menu.-n|
|00000f30| 20 46 69 6c 74 65 72 73 | 20 7b 0d 09 09 09 22 72 | Filters| {...."r|
|00000f40| 65 70 6c 61 63 65 49 6e | 52 65 67 69 6f 6e 22 0d |eplaceIn|Region".|
|00000f50| 09 09 09 22 66 69 6c 74 | 65 72 4c 69 6e 65 73 22 |..."filt|erLines"|
|00000f60| 0d 09 09 09 22 66 69 6c | 74 65 72 50 61 72 61 67 |...."fil|terParag|
|00000f70| 72 61 70 68 73 22 0d 09 | 09 09 22 73 6f 72 74 50 |raphs"..|.."sortP|
|00000f80| 61 72 61 67 72 61 70 68 | 73 22 0d 09 09 09 22 66 |aragraph|s"...."f|
|00000f90| 69 6c 6c 52 65 67 69 6f | 6e 42 79 50 61 72 22 0d |illRegio|nByPar".|
|00000fa0| 09 09 09 22 6c 69 6e 65 | 54 6f 50 61 72 61 67 72 |..."line|ToParagr|
|00000fb0| 61 70 68 22 0d 09 09 09 | 22 70 61 72 61 67 72 61 |aph"....|"paragra|
|00000fc0| 70 68 54 6f 4c 69 6e 65 | 22 7d 7d 0d 09 09 22 64 |phToLine|"}}..."d|
|00000fd0| 6f 77 6e 63 61 73 65 52 | 65 67 69 6f 6e 22 0d 09 |owncaseR|egion"..|
|00000fe0| 09 22 75 70 63 61 73 65 | 52 65 67 69 6f 6e 22 0d |."upcase|Region".|
|00000ff0| 7d 0d 0d 23 20 52 65 61 | 6c 20 4b 6c 75 64 67 65 |}..# Rea|l Kludge|
|00001000| 0d 70 72 6f 63 20 68 65 | 6c 70 4d 65 6e 75 50 72 |.proc he|lpMenuPr|
|00001010| 6f 63 20 7b 6d 65 6e 75 | 20 69 74 65 6d 7d 20 7b |oc {menu| item} {|
|00001020| 0d 09 67 6c 6f 62 61 6c | 20 48 4f 4d 45 20 68 65 |..global| HOME he|
|00001030| 6c 70 4d 65 6e 75 0d 09 | 0d 09 69 66 20 7b 24 6d |lpMenu..|..if {$m|
|00001040| 65 6e 75 20 3d 3d 20 24 | 68 65 6c 70 4d 65 6e 75 |enu == $|helpMenu|
|00001050| 7d 20 7b 0d 09 09 65 64 | 69 74 20 2d 72 20 2d 6d |} {...ed|it -r -m|
|00001060| 20 24 48 4f 4d 45 3a 48 | 65 6c 70 3a 24 69 74 65 | $HOME:H|elp:$ite|
|00001070| 6d 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 65 64 |m..} els|e {...ed|
|00001080| 69 74 20 2d 72 20 2d 6d | 20 24 48 4f 4d 45 3a 48 |it -r -m| $HOME:H|
|00001090| 65 6c 70 3a 24 6d 65 6e | 75 3a 24 69 74 65 6d 0d |elp:$men|u:$item.|
|000010a0| 09 7d 09 09 0d 7d 0d 0d | 70 72 6f 63 20 73 74 72 |.}...}..|proc str|
|000010b0| 69 70 20 7b 61 72 67 7d | 20 7b 0d 09 69 66 20 7b |ip {arg}| {..if {|
|000010c0| 5b 72 65 67 73 75 62 20 | 2d 61 6c 6c 20 7b 5c 5c |[regsub |-all {\\|
|000010d0| 28 5b 5d 5b 5c 7b 5c 7d | 5d 29 7d 20 24 61 72 67 |([][\{\}|])} $arg|
|000010e0| 20 7b 5c 31 7d 20 76 5d | 7d 20 7b 72 65 74 75 72 | {\1} v]|} {retur|
|000010f0| 6e 20 24 76 7d 0d 09 72 | 65 74 75 72 6e 20 24 61 |n $v}..r|eturn $a|
|00001100| 72 67 0d 7d 0d 0d 0d 23 | 20 70 72 6f 63 20 62 75 |rg.}...#| proc bu|
|00001110| 69 6c 64 48 65 6c 70 4d | 65 6e 75 20 7b 66 7d 20 |ildHelpM|enu {f} |
|00001120| 7b 0d 23 20 09 67 6c 6f | 62 61 6c 20 68 65 6c 70 |{.# .glo|bal help|
|00001130| 41 72 72 20 68 65 6c 70 | 4d 65 6e 75 0d 23 20 09 |Arr help|Menu.# .|
|00001140| 69 66 20 7b 5b 66 69 6c | 65 20 69 73 66 69 6c 65 |if {[fil|e isfile|
|00001150| 20 24 66 5d 7d 20 7b 20 | 72 65 74 75 72 6e 20 5b | $f]} { |return [|
|00001160| 66 69 6c 65 20 74 61 69 | 6c 20 24 66 5d 20 7d 0d |file tai|l $f] }.|
|00001170| 23 20 09 0d 23 20 09 73 | 65 74 20 73 75 62 20 22 |# ..# .s|et sub "|
|00001180| 22 0d 23 20 09 73 65 74 | 20 73 75 62 64 20 22 22 |".# .set| subd ""|
|00001190| 0d 23 20 09 66 6f 72 65 | 61 63 68 20 73 20 5b 67 |.# .fore|ach s [g|
|000011a0| 6c 6f 62 20 24 66 3a 2a | 5d 20 7b 0d 23 20 09 09 |lob $f:*|] {.# ..|
|000011b0| 69 66 20 7b 5b 73 74 72 | 69 6e 67 20 6d 61 74 63 |if {[str|ing matc|
|000011c0| 68 20 22 2a 7e 22 20 24 | 73 5d 7d 20 63 6f 6e 74 |h "*~" $|s]} cont|
|000011d0| 69 6e 75 65 0d 23 20 09 | 09 73 65 74 20 72 65 73 |inue.# .|.set res|
|000011e0| 20 5b 62 75 69 6c 64 48 | 65 6c 70 4d 65 6e 75 20 | [buildH|elpMenu |
|000011f0| 24 73 5d 0d 23 20 09 09 | 69 66 20 7b 5b 73 74 72 |$s].# ..|if {[str|
|00001200| 69 6e 67 20 6d 61 74 63 | 68 20 22 6d 65 6e 75 2a |ing matc|h "menu*|
|00001210| 22 20 24 72 65 73 5d 7d | 20 7b 0d 23 20 09 09 09 |" $res]}| {.# ...|
|00001220| 6c 61 70 70 65 6e 64 20 | 73 75 62 64 20 24 72 65 |lappend |subd $re|
|00001230| 73 0d 23 20 09 09 7d 20 | 65 6c 73 65 20 7b 0d 23 |s.# ..} |else {.#|
|00001240| 20 09 09 09 6c 61 70 70 | 65 6e 64 20 73 75 62 20 | ...lapp|end sub |
|00001250| 24 72 65 73 0d 23 20 09 | 09 7d 0d 23 20 09 7d 0d |$res.# .|.}.# .}.|
|00001260| 23 20 09 73 65 74 20 74 | 69 74 6c 65 20 5b 66 69 |# .set t|itle [fi|
|00001270| 6c 65 20 74 61 69 6c 20 | 24 66 5d 0d 23 20 09 69 |le tail |$f].# .i|
|00001280| 66 20 7b 24 74 69 74 6c | 65 20 3d 3d 20 22 48 65 |f {$titl|e == "He|
|00001290| 6c 70 22 7d 20 7b 73 65 | 74 20 74 69 74 6c 65 20 |lp"} {se|t title |
|000012a0| 24 68 65 6c 70 4d 65 6e | 75 7d 0d 23 20 09 6c 69 |$helpMen|u}.# .li|
|000012b0| 73 74 20 6d 65 6e 75 20 | 2d 6e 20 24 74 69 74 6c |st menu |-n $titl|
|000012c0| 65 20 2d 6d 20 2d 70 20 | 22 68 65 6c 70 4d 65 6e |e -m -p |"helpMen|
|000012d0| 75 50 72 6f 63 22 20 5b | 63 6f 6e 63 61 74 20 24 |uProc" [|concat $|
|000012e0| 73 75 62 20 24 73 75 62 | 64 5d 0d 23 20 7d 0d 23 |sub $sub|d].# }.#|
|000012f0| 20 63 61 74 63 68 20 7b | 65 76 61 6c 20 5b 62 75 | catch {|eval [bu|
|00001300| 69 6c 64 48 65 6c 70 4d | 65 6e 75 20 24 48 4f 4d |ildHelpM|enu $HOM|
|00001310| 45 3a 48 65 6c 70 5d 7d | 0d 0d 6d 65 6e 75 20 2d |E:Help]}|..menu -|
|00001320| 6e 20 24 68 65 6c 70 4d | 65 6e 75 20 2d 6d 20 2d |n $helpM|enu -m -|
|00001330| 70 20 68 65 6c 70 4d 65 | 6e 75 50 72 6f 63 20 7b |p helpMe|nuProc {|
|00001340| 0d 09 22 49 6e 74 72 6f | 22 0d 09 22 28 2d 22 0d |.."Intro|".."(-".|
|00001350| 09 22 41 6c 70 68 61 20 | 43 6f 6d 6d 61 6e 64 73 |."Alpha |Commands|
|00001360| 22 0d 09 22 54 63 6c 20 | 43 6f 6d 6d 61 6e 64 73 |".."Tcl |Commands|
|00001370| 22 0d 09 22 28 2d 22 0d | 09 22 43 75 73 74 6f 6d |".."(-".|."Custom|
|00001380| 69 7a 69 6e 67 22 0d 09 | 22 44 65 62 75 67 67 69 |izing"..|"Debuggi|
|00001390| 6e 67 22 0d 09 22 44 65 | 66 61 75 6c 74 20 4b 65 |ng".."De|fault Ke|
|000013a0| 79 20 42 69 6e 64 69 6e | 67 73 22 0d 09 22 44 65 |y Bindin|gs".."De|
|000013b0| 66 61 75 6c 74 20 4b 65 | 79 20 42 69 6e 64 69 6e |fault Ke|y Bindin|
|000013c0| 67 73 20 32 22 0d 09 22 | 65 6c 65 63 74 72 69 63 |gs 2".."|electric|
|000013d0| 41 6c 69 61 73 20 48 65 | 6c 70 22 0d 09 22 4c 61 |Alias He|lp".."La|
|000013e0| 54 65 58 20 48 65 6c 70 | 22 0d 09 22 52 65 67 75 |TeX Help|".."Regu|
|000013f0| 6c 61 72 20 45 78 70 72 | 65 73 73 69 6f 6e 73 22 |lar Expr|essions"|
|00001400| 0d 09 22 53 68 65 6c 6c | 73 22 0d 09 22 54 63 6c |.."Shell|s".."Tcl|
|00001410| 20 4c 69 62 72 61 72 79 | 20 2d 20 61 75 74 6f 2d | Library| - auto-|
|00001420| 6c 6f 61 64 69 6e 67 22 | 0d 09 22 54 63 6c 20 4d |loading"|.."Tcl M|
|00001430| 61 69 6c 69 6e 67 20 4c | 69 73 74 22 0d 09 22 58 |ailing L|ist".."X|
|00001440| 54 43 4c 73 22 0d 7d 0d | 0d 0d 70 72 6f 63 20 73 |TCLs".}.|..proc s|
|00001450| 77 69 74 63 68 50 72 6f | 63 20 7b 6d 65 6e 75 20 |witchPro|c {menu |
|00001460| 6e 61 6d 65 7d 20 7b 0d | 09 73 77 69 74 63 68 54 |name} {.|.switchT|
|00001470| 6f 20 24 6e 61 6d 65 0d | 7d 0d 09 09 0d 0d 70 72 |o $name.|}.....pr|
|00001480| 6f 63 20 63 6f 6c 6f 72 | 4d 65 6e 75 50 72 6f 63 |oc color|MenuProc|
|00001490| 20 7b 6d 65 6e 75 20 69 | 74 65 6d 7d 20 7b 0d 09 | {menu i|tem} {..|
|000014a0| 69 66 20 7b 24 69 74 65 | 6d 20 3d 3d 20 22 72 65 |if {$ite|m == "re|
|000014b0| 6d 6f 76 65 43 6f 6c 6f | 72 73 22 7d 20 7b 0d 09 |moveColo|rs"} {..|
|000014c0| 09 72 65 6d 6f 76 65 43 | 6f 6c 6f 72 73 0d 09 09 |.removeC|olors...|
|000014d0| 72 65 74 75 72 6e 0d 09 | 7d 0d 09 73 65 74 20 6f |return..|}..set o|
|000014e0| 6e 65 20 5b 67 65 74 50 | 6f 73 5d 0d 09 69 66 20 |ne [getP|os]..if |
|000014f0| 7b 5b 73 65 74 20 74 77 | 6f 20 5b 73 65 6c 45 6e |{[set tw|o [selEn|
|00001500| 64 5d 5d 20 3d 3d 20 24 | 6f 6e 65 7d 20 7b 0d 09 |d]] == $|one} {..|
|00001510| 09 73 65 74 20 74 77 6f | 20 5b 67 65 74 4d 61 72 |.set two| [getMar|
|00001520| 6b 5d 0d 09 09 69 66 20 | 7b 24 74 77 6f 20 3c 20 |k]...if |{$two < |
|00001530| 24 6f 6e 65 7d 20 7b 0d | 09 09 09 73 65 74 20 74 |$one} {.|...set t|
|00001540| 65 6d 70 20 24 74 77 6f | 0d 09 09 09 73 65 74 20 |emp $two|....set |
|00001550| 74 77 6f 20 24 6f 6e 65 | 0d 09 09 09 73 65 74 20 |two $one|....set |
|00001560| 6f 6e 65 20 24 74 65 6d | 70 0d 09 09 7d 0d 09 7d |one $tem|p...}..}|
|00001570| 0d 09 63 6f 6c 6f 72 69 | 7a 65 20 24 6f 6e 65 20 |..colori|ze $one |
|00001580| 24 74 77 6f 20 24 69 74 | 65 6d 0d 7d 0d 0d 6d 65 |$two $it|em.}..me|
|00001590| 6e 75 20 2d 6e 20 24 77 | 69 6e 4d 65 6e 75 20 2d |nu -n $w|inMenu -|
|000015a0| 70 20 6d 65 6e 75 57 69 | 6e 20 7b 0d 09 09 7b 6d |p menuWi|n {...{m|
|000015b0| 65 6e 75 20 2d 6e 20 61 | 72 72 61 6e 67 65 20 7b |enu -n a|rrange {|
|000015c0| 0d 09 09 09 22 76 65 72 | 74 69 63 61 6c 6c 79 5e |...."ver|tically^|
|000015d0| 31 22 0d 09 09 09 22 68 | 6f 72 69 7a 6f 6e 74 61 |1"...."h|orizonta|
|000015e0| 6c 6c 79 5e 32 22 0d 09 | 09 09 22 74 69 6c 65 64 |lly^2"..|.."tiled|
|000015f0| 5e 33 22 0d 09 09 09 22 | 6f 76 65 72 6c 61 79 5e |^3"...."|overlay^|
|00001600| 34 22 7d 7d 0d 09 09 7b | 6d 65 6e 75 20 2d 6e 20 |4"}}...{|menu -n |
|00001610| 63 6f 6c 6f 72 73 20 2d | 70 20 63 6f 6c 6f 72 4d |colors -|p colorM|
|00001620| 65 6e 75 50 72 6f 63 20 | 7b 0d 09 09 09 22 62 6c |enuProc |{...."bl|
|00001630| 61 63 6b 22 0d 09 09 09 | 22 62 6c 75 65 22 0d 09 |ack"....|"blue"..|
|00001640| 09 09 22 63 79 61 6e 22 | 0d 09 09 09 22 67 72 65 |.."cyan"|...."gre|
|00001650| 65 6e 22 0d 09 09 09 22 | 6d 61 67 65 6e 74 61 22 |en"...."|magenta"|
|00001660| 0d 09 09 09 22 72 65 64 | 22 0d 09 09 09 22 77 68 |...."red|"...."wh|
|00001670| 69 74 65 22 0d 09 09 09 | 22 79 65 6c 6c 6f 77 22 |ite"....|"yellow"|
|00001680| 0d 09 09 09 22 28 2d 22 | 0d 09 09 09 22 72 65 6d |...."(-"|...."rem|
|00001690| 6f 76 65 43 6f 6c 6f 72 | 73 22 0d 09 09 7d 7d 09 |oveColor|s"...}}.|
|000016a0| 09 09 0d 09 09 22 28 2d | 22 0d 09 09 22 2f 2f 7a |....."(-|"..."//z|
|000016b0| 6f 6f 6d 22 0d 09 09 22 | 69 63 6f 6e 69 66 79 22 |oom"..."|iconify"|
|000016c0| 0d 09 09 22 64 69 73 70 | 46 75 6c 6c 4e 61 6d 65 |..."disp|FullName|
|000016d0| 22 0d 09 09 22 74 6f 67 | 67 6c 65 53 63 72 6f 6c |"..."tog|gleScrol|
|000016e0| 6c 62 61 72 22 0d 09 09 | 22 28 2d 22 0d 09 09 22 |lbar"...|"(-"..."|
|000016f0| 6e 65 78 74 57 69 6e 64 | 6f 77 22 0d 09 09 22 73 |nextWind|ow"..."s|
|00001700| 77 61 70 57 69 74 68 4e | 65 78 74 22 0d 09 09 22 |wapWithN|ext"..."|
|00001710| 2f 3b 63 68 6f 6f 73 65 | 41 57 69 6e 64 6f 77 22 |/;choose|AWindow"|
|00001720| 0d 09 09 22 70 72 65 76 | 57 69 6e 64 6f 77 22 0d |..."prev|Window".|
|00001730| 09 09 22 63 6c 6f 73 65 | 41 6c 6c 22 0d 09 09 22 |.."close|All"..."|
|00001740| 73 61 76 65 41 6c 6c 22 | 0d 09 09 22 28 2d 22 0d |saveAll"|..."(-".|
|00001750| 7d 0d 0d 0d 23 20 57 65 | 20 6d 61 79 20 62 65 20 |}...# We| may be |
|00001760| 72 65 6c 6f 61 64 69 6e | 67 2c 20 73 6f 20 61 64 |reloadin|g, so ad|
|00001770| 64 20 77 68 61 74 65 76 | 65 72 20 77 69 6e 64 6f |d whatev|er windo|
|00001780| 77 73 20 77 65 20 68 61 | 76 65 0d 69 66 20 7b 5b |ws we ha|ve.if {[|
|00001790| 69 6e 66 6f 20 65 78 69 | 73 74 73 20 77 69 6e 4e |info exi|sts winN|
|000017a0| 61 6d 65 54 6f 4e 75 6d | 5d 7d 20 7b 0d 09 73 65 |ameToNum|]} {..se|
|000017b0| 74 20 6e 6d 73 20 5b 61 | 72 72 61 79 20 6e 61 6d |t nms [a|rray nam|
|000017c0| 65 73 20 77 69 6e 4e 61 | 6d 65 54 6f 4e 75 6d 5d |es winNa|meToNum]|
|000017d0| 0d 09 66 6f 72 65 61 63 | 68 20 6e 61 6d 65 20 24 |..foreac|h name $|
|000017e0| 6e 6d 73 20 7b 0d 09 09 | 69 66 20 7b 24 66 75 6c |nms {...|if {$ful|
|000017f0| 6c 4e 61 6d 65 73 7d 20 | 7b 0d 09 09 09 73 65 74 |lNames} |{....set|
|00001800| 20 69 74 65 6d 20 24 6e | 61 6d 65 0d 09 09 7d 20 | item $n|ame...} |
|00001810| 65 6c 73 65 20 7b 0d 09 | 09 09 72 65 67 65 78 70 |else {..|..regexp|
|00001820| 20 7b 5b 5e 3a 5d 2a 24 | 7d 20 24 6e 61 6d 65 20 | {[^:]*$|} $name |
|00001830| 69 74 65 6d 0d 09 09 7d | 0d 09 09 73 65 74 20 6e |item...}|...set n|
|00001840| 75 6d 20 24 77 69 6e 4e | 61 6d 65 54 6f 4e 75 6d |um $winN|ameToNum|
|00001850| 28 24 6e 61 6d 65 29 0d | 09 09 69 66 20 7b 24 6e |($name).|..if {$n|
|00001860| 75 6d 20 3c 20 31 30 7d | 20 09 7b 0d 09 09 09 61 |um < 10}| .{....a|
|00001870| 64 64 4d 65 6e 75 49 74 | 65 6d 20 2d 6d 20 57 69 |ddMenuIt|em -m Wi|
|00001880| 6e 73 20 2f 24 6e 75 6d | 24 69 74 65 6d 0d 09 09 |ns /$num|$item...|
|00001890| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 61 64 64 4d |} else {|....addM|
|000018a0| 65 6e 75 49 74 65 6d 20 | 2d 6d 20 57 69 6e 73 20 |enuItem |-m Wins |
|000018b0| 24 69 74 65 6d 0d 09 09 | 7d 0d 09 7d 0d 7d 0d 0d |$item...|}..}.}..|
|000018c0| 69 6e 73 65 72 74 4d 65 | 6e 75 20 22 46 69 6c 65 |insertMe|nu "File|
|000018d0| 22 0d 69 6e 73 65 72 74 | 4d 65 6e 75 20 22 45 64 |".insert|Menu "Ed|
|000018e0| 69 74 22 0d 69 6e 73 65 | 72 74 4d 65 6e 75 20 22 |it".inse|rtMenu "|
|000018f0| 53 65 61 72 63 68 22 0d | 69 6e 73 65 72 74 4d 65 |Search".|insertMe|
|00001900| 6e 75 20 22 55 74 69 6c | 73 22 0d 69 6e 73 65 72 |nu "Util|s".inser|
|00001910| 74 4d 65 6e 75 20 22 4d | 6f 64 65 22 0d 65 6e 61 |tMenu "M|ode".ena|
|00001920| 62 6c 65 4d 65 6e 75 49 | 74 65 6d 20 4e 61 6d 65 |bleMenuI|tem Name|
|00001930| 64 43 6c 69 70 62 6f 61 | 72 64 73 20 70 61 73 74 |dClipboa|rds past|
|00001940| 65 4e 61 6d 65 64 43 6c | 69 70 62 6f 61 72 64 20 |eNamedCl|ipboard |
|00001950| 6f 66 66 0d 69 6e 73 65 | 72 74 4d 65 6e 75 20 22 |off.inse|rtMenu "|
|00001960| 43 6f 6e 76 65 72 74 22 | 0d 69 6e 73 65 72 74 4d |Convert"|.insertM|
|00001970| 65 6e 75 20 24 77 69 6e | 4d 65 6e 75 0d 63 61 74 |enu $win|Menu.cat|
|00001980| 63 68 20 7b 69 6e 73 65 | 72 74 4d 65 6e 75 20 24 |ch {inse|rtMenu $|
|00001990| 68 65 6c 70 4d 65 6e 75 | 7d 0d 0d 70 72 6f 63 20 |helpMenu|}..proc |
|000019a0| 73 68 6f 72 74 4d 65 6e | 75 73 20 7b 7d 20 7b 0d |shortMen|us {} {.|
|000019b0| 09 67 6c 6f 62 61 6c 20 | 77 69 6e 4d 65 6e 75 0d |.global |winMenu.|
|000019c0| 09 72 65 6d 6f 76 65 4d | 65 6e 75 20 22 55 74 69 |.removeM|enu "Uti|
|000019d0| 6c 73 22 0d 09 72 65 6d | 6f 76 65 4d 65 6e 75 20 |ls"..rem|oveMenu |
|000019e0| 22 4d 6f 64 65 22 0d 09 | 72 65 6d 6f 76 65 4d 65 |"Mode"..|removeMe|
|000019f0| 6e 75 20 22 43 6f 6e 76 | 65 72 74 22 0d 09 72 65 |nu "Conv|ert"..re|
|00001a00| 6d 6f 76 65 4d 65 6e 75 | 20 24 77 69 6e 4d 65 6e |moveMenu| $winMen|
|00001a10| 75 0d 09 69 6e 73 65 72 | 74 4d 65 6e 75 20 22 55 |u..inser|tMenu "U|
|00001a20| 74 69 6c 69 74 69 65 73 | 22 0d 7d 0d 0d 70 72 6f |tilities|".}..pro|
|00001a30| 63 20 6c 6f 6e 67 4d 65 | 6e 75 73 20 7b 7d 20 7b |c longMe|nus {} {|
|00001a40| 0d 09 67 6c 6f 62 61 6c | 20 77 69 6e 4d 65 6e 75 |..global| winMenu|
|00001a50| 0d 09 72 65 6d 6f 76 65 | 4d 65 6e 75 20 22 55 74 |..remove|Menu "Ut|
|00001a60| 69 6c 69 74 69 65 73 22 | 0d 09 69 6e 73 65 72 74 |ilities"|..insert|
|00001a70| 4d 65 6e 75 20 22 55 74 | 69 6c 73 22 0d 09 69 6e |Menu "Ut|ils"..in|
|00001a80| 73 65 72 74 4d 65 6e 75 | 20 22 4d 6f 64 65 22 0d |sertMenu| "Mode".|
|00001a90| 09 69 6e 73 65 72 74 4d | 65 6e 75 20 22 43 6f 6e |.insertM|enu "Con|
|00001aa0| 76 65 72 74 22 0d 09 69 | 6e 73 65 72 74 4d 65 6e |vert"..i|nsertMen|
|00001ab0| 75 20 24 77 69 6e 4d 65 | 6e 75 0d 7d 0d 0d 0d 00 |u $winMe|nu.}....|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001b10| ff f4 48 e7 01 18 28 6e | 00 08 7e 00 60 7c 70 14 |..H...(n|..~.`|p.|
|00001b20| c0 6c 00 24 66 70 2f 2c | 00 04 4e ba fe 6c 2d 40 |.l.$fp/,|..N..l-@|
|00001b30| 09 6d 65 6e 75 73 2e 74 | 63 6c 02 00 00 00 50 61 |.menus.t|cl....Pa|
|00001b40| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|00001b50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 a9 b0 91 a2 00 00 | 00 00 00 00 01 7e ff fc |........|.....~..|
|00001b80| 48 68 ff ff 48 6b 00 1a | 2f 2d d0 28 4e ad 19 42 |Hh..Hk..|/-.(N..B|
|00001b90| 52 47 4f ef 00 18 28 6c | 00 0a 20 0c 66 80 30 07 |RGO...(l|.. .f.0.|
|00001ba0| 4c df 18 80 4e 5e 4e 75 | 42 a7 48 78 00 02 48 78 |L...N^Nu|B.Hx..Hx|
|00001bb0| 00 c8 4e ad 19 0a 2b 40 | d0 24 2e 80 4e ad 19 32 |..N...+@|.$..N..2|
|00001bc0| 4f ef 00 0c 4e 75 4e 56 | ff fa 2d 6e 00 08 ff fc |O...NuNV|..-n....|
|00001bd0| 3d 6e 00 0e ff fa 48 78 | 00 06 48 6e ff fa 2f 2d |=n....Hx|..Hn../-|
|00001be0| d0 24 4e ad 19 42 4e 5e | 4e 75 4e 56 ff f6 48 e7 |.$N..BN^|NuNV..H.|
|00001bf0| 0f 08 20 6d d0 24 3d 68 | 00 06 ff fe 7e 02 7c 00 |.. m.$=h|....~.|.|
|00001c00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 4e |...H..Mo|naco...N|
|00001c10| fd 98 00 00 00 00 00 5d | e9 44 00 02 f7 6c 03 20 |.......]|.D...l. |
|00001c20| 00 59 34 a2 00 00 00 04 | 00 04 00 2a 00 03 01 dd |.Y4.....|...*....|
|00001c30| 02 7d 00 2a 00 03 01 dd | 02 7d 00 00 d2 b2 00 00 |.}.*....|.}......|
|00001c40| 03 cf 00 00 03 cf 00 00 | 03 22 01 00 00 00 01 00 |........|."......|
|00001c50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 4e fd 98 |...L...L|...2.N..|
|00001c60| 0b 06 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001c70| 00 0a 03 ed ff ff 00 00 | 00 00 00 55 73 80 00 00 |........|...Us...|
+--------+-------------------------+-------------------------+--------+--------+